COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE VICARM
C00004 00003	GO:	CONSZ 40↔JRST DEAD
C00005 00004	BRAKES:	0
C00006 00005	TOGGLE:	CONSZ 40↔DISMIS
C00007 ENDMK
C⊗;
TITLE VICARM
S:	TTYUUO 3,[ASCIZ/DAC NUMBER?  0≤N≤9  /]
	TTYUUO
	CAIL 60↔CAILE 72↔JRST S
	SUBI 60
	MOVE 17,[POINT 7,SET-1,34];TO GET THE SELECTED DAC
	SETZM SET	;TO CLEAR THE DRIVE WORDS
	MOVEI 1,1
	MOVEM 1,SET+1
	HRLZI 1,1
	LSH 1,-1

	IBP 17
	SOJGE .-2
	MOVEM 17,PNTR
BP:	MOVEM 1,BRAKES
	SPCWAR 1,GO
	SKIPN RUN	;A FLAG INDICATING THAT THE SW JOB HAS DONE PHASE 1
	JRST .-1
TEST:	SKIPE NOSIX↔JRST NOGOOD
	SKIPE BUSY↔JRST ADBUSY
	TTYUUO 2,↔JRST TEST
	CAIN 15↔TTYUUO
	SPCWAR 636367
	SETZM RUN
	CALLI 12

NOGOOD:	TTYUUO 3,[ASCIZ/
PDP-6 NOT THERE/]
	SETZM NOSIX
	CALLI 12

ADBUSY:	SPCWAR 636367
	TTYUUO 3,[ASCIZ/
FOR SOME STRANGE REASON, THE A-TO-D FUCKED UP./]
	MOVEI 1,1
	CALLI 1,31
	SETZM BUSY
	CALLI 12
GO:	CONSZ 40↔JRST DEAD
	CONI 204,7↔ANDI 7,7
	SKIPE 7↔JRST BSY
	SKIPN RUN	;ENABLE EMERGENCY SHUT-DOWN

	CONO 450,1	;SET THE SAFETY F-F ON THE FIRST PASS
	SETOM RUN

	CONO 204,4250
	CONO 424,120030	

GETIT:	MOVEI 4,100
	CONI 204,10
	TRNE 10,11000↔JRST GOTIT
	SOJN 4,.-3
	JRST BSY

GOTIT:	DATAI 204,HERE
	CONO 204,4000
	MOVE 5,[POINT 12,HERE,35]
 	LDB 1,5
	LSH 1,30
	ASH 1,-30
	IDIVI 1,200
	DPB 1,PNTR
	CONO 450,@BRAKES
	DATAO 450,SET
	DATAO 450,SET+1
	CALLI 400024
BRAKES:	0
SET:	0
	1
HERE:	BLOCK 2
THERE:	0
BUSY:	0
NOSIX:	0
RUN:	0
PNTR:	0

BSY:	SETOM BUSY
	SETOM RUN
	DISMIS

DEAD:	SETOM NOSIX
	SETOM RUN
	DISMIS
TOGGLE:	CONSZ 40↔DISMIS

	CONO 450,1
	MOVEI 50
	DATAO 450,[-1,,-2]
	DATAO 450,[-1]

	MOVEI 1,10
	SOJGE 1,.
	DATAO 450,[1]
	DATAO 450,[0]
	MOVEI 1,10
	SOJGE 1,.
	SOJGE .-7
	DISMIS
END S